unit frmAbout;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI, StdCtrls, ExtCtrls, siComp;

type
  TFormAbout = class(TForm)
    Image1:     TImage;
    Label1:     TLabel;
    Bevel1:     TBevel;
    btnOK:      TButton;
    lblLink:    TLabel;
    Label3:     TLabel;
    Label4:     TLabel;
    lblLicense: TLabel;
    Image2: TImage;
    Label5: TLabel;
    siLang: TsiLang;
    procedure lblLinkClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAbout: TFormAbout;

implementation

uses
  frmMain;

{$R *.dfm}

procedure TFormAbout.lblLinkClick(Sender: TObject);
begin
  ShellExecute(0, 'open', 'http://hi.baidu.com/rarnu', nil, nil, SW_SHOW);
end;

procedure TFormAbout.FormCreate(Sender: TObject);
begin
  siLang.ActiveLanguage := formmain.Config.Language;
end;

end.
